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^ c_spi_n() ^ 

^— 236 



rdms. 



.commom 



Define packet Structures: 
MRICOM 
SPLA 



Set MRICOM packet info: 
mtype. label. e_dsp. db 
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252 

240 



Get options & sp-name. then!/ 

validate options & Set < MGMI44 
SPLA packet info: MGMI43 
action, wrap, vert, spsyntax MGMI42 



242 



error 



Get SP parameters from th>€ 
command line - extract_v(...) 



error 



Setup pkts and process SPI 
n_spi_cmd(MRICOM. SPLA) 



— 244 
MGRX42 
^254 



«Struct» 
MRICOM 

(FROM mriparse.h) 



©mtype : SINT 
©label : SINT 
©a_dsp : SINT 
©option : L08* 
•dbTOBSIZE] : L08 
@info_rslt : SINT 



spiapkt 
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Handle Errors 



248 



«Struct» 
SPLA 

(FROM mriparse.h) 



©action : L08 
©wrap : L08 
©vert : L08 

@spsyntax[SPSIZE] : L08 
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Capture error status 



328 



Check for errors 
chk_pkt_error(..J 



330 



Retrieve the parameters 
from the spipkt 



332 



FINAI LINE build: 

return status 



334 



Add all parameters (variations) 
to the output buffer 



336 



Release SPI memory packet 
reLcoreL.) 



Q Return ^ 
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340 





n_spi_cmd 
(auxpKt*auxptr. 
MRLC0MM0N* common) 



314 



Cast the aux pointer to the 
SPLAUX structure 
(common+l) 



316 



Initialize stuff: 
auxptr.statl auxptr.stat2. 
auxptr.stat3. dbs structure 
auxptr.fun_vars(Q) 



318 



Ck for supported database - 
OLEDB or ODBC 



320 



EMRI43/ 
MGMI46 



Create and build "spipkt" for db 
handlers - get_core(..J 



Set 
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] °9 s: 



Send flag: 
Rows flag: 
pkeys flaq=0(not needed) 
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Branch 

)ased on SPI Action optionr 
S-P-C-E 



342 
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A 



S option 
(List SPs) 



344 



Build SPIpkt 
w/CMD-SPLST 



354 



/- 364 

"car 

har_cntl{spi_ptr.aux__pkt) 



with SPIpkt to get SP list 
schema 



372 



FiO DBS structure with 
schema rowset info 



374 



Initialize rid col in DBS 
L_ridcol(&dbs) 



^376 

Setup dummy FCH_AUX pkt 
map SPI "vert" and "wrap" 



options into 
Force Horiz. 



pkt 



378 



Build headers lines 
bld_hdrsU 



380 



If no errors, fetch data 
fines and output 
tch_6nesL.) 



Q Continue^ 
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P option 
(Param Info) 



346 



Build SPIpkt 
w/CMD-SPPAR 



356 



366 



car 

lndir_cntl(spL.ptr.aux_^kt) 
with SPIpkt to qet SP 
parameter schema 



Fill DBS structure with 
schema rowset info 



Initialize rid col in DBS 
i_ridcol(<Wbs) 



Setup dummy FOLAUX pkt 
map SPI "vert" and "wrap" 
options into pkt 
Force Horiz. display 



Build headers lines 
blcLhdrsLJ 



If no errors, fetch data 
lines and output 
tch-Jnes(..J 



^ Continue ^ 



342 



C option 
(Col Info) 



350 



Bufld SPIpkt 
w/CMD-SPCOL 



358 



362 



368 



, r.aux pk' 
with SPIfrtt to get SP 
column schema 



Fill DBS structure with 
schema rowset info 



Initialize rid col in DBS 
i_ridcol(&dbs) 



Setup dummy FCH_AUX pkt 
map SPI "vert* and "wrap" 
options into pkt 
Force Horiz . aisplay 



Build headers lines 
bldJidrsLJ 



If no errors, fetch data 
lines and output 
tch_linesL.J 



Q Continue^ 



E option 
(Execute SP) 



352 



Build SPIpkt 
w/CMD-SPEXE 



360 



Add parameters 
to spipkt 



370 



Call ^ 
mdir_cntl(spi_ptr.aux__pkt) 
with SPbkt to execute 
the SP 



Fill DBS structure with 
schema rowset info 



Initialize rid col in DBS 
i_ridcol{&dbs) 



384 



Setup dummy FCH_J\UX pkt 
map SPI "vert" and "wrap" 
options into pkt 



Build headers lines 
b!d_hdrs(..J 



If no errors, fetch data 
fines and output 
tch_Jines(..J 



Continue ^ 



top_out_ptr 



_eftd = out == £tr_ 



finrptr 



«Struct» 
auxpkt 



140 



•pkt : L08 
•op Jevel : L08 
•err : SWT 

©db_u_kffDBJCUJ : L08 
•ra\_type : SWT 
•d>_ptr : DB_JTrV 
•trans_ptr : TRANS_BUF* 
•actch_ptr : L08 
Osftn_dot : SHM_SL0T- 
•statl : UNT 
•stat2 : UNT 
•stat3 LWT 
•fun_vars<6) : LNT 
•end_remot : SWT 
•error : SWT 
«read_req : SINT 
•new_trrd : SINT 
•top_h_ptr : L08* 
•c_jn__ptr : L08* ' 
•end_h_ptr : L08* 
•top_out_f tr : L08* 
•c_out_pTr : L08» 
•end_out_ptr : L08» 
•pkt_sz : SWT 
•pipe_idx : SWT 
•c_typ_vd : SWT 
•msv_rem_eol : SWT 
•s_octn_code : L08 
•m_acti\_code : L08 
•map_amd : L08 
•gen_flg : SWT 
©trL-ptr : L08« 
©ruruJd : UNT 
ocomm_Jd : UNT 
•pass_id : UNT 
•nrim_Jd : UNT 



r 



0UT_BUF_SZ 



8000 
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«Struct» 
spipkt 
(from mri3tnicJ\) 



•and : SWT 
«totoze_j-sa : SWT 
•totpver : SWT 
©sqLKoldSQLSiZH : L08 
•errhold_rsa : UNT 
Ocdhold_rsa : SWT 
orotcount : LNT 
•pdatofl) : spvor 



data_rsa 
• (foSows variable i 
| sized pd otcD | 



402 



«Struct» 
N^COMMON 72 



ousenametD8_D_L] : LOS 
•»te_JdD_LBK3TrO : L08 
•coramand : L08 
OuserstdUSTASZ] : LOS 
•bU_err_rpt : L08 
ordback : LOS 
odbnanetDBSJZa : L08 
*»w_cont : LOS 
obafl2J : LOS 

•nri_JeveflJEVEL_SIZB : L08 

stan : L08 
flhost^idTHOSTDSZ] : L08 
obld_info_rsh : SWT 
•rpt_JuJength : SWT 
•sbtptr : Srfl_SL0T» 



«Struct» 
d>_jstnict 
(from mrtiiih) 


•and : SWT 




ocsr_ixme(30) : L08 








•cofefSOLSEB 




•*_daus : • 




•optionds 




•inline : * 




•coL-ptrCDB_MA)C.COLUMNS] 


COL-DES^ 


S 
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398 



QUXSpt 



«Struct» 
SPLAUX 
(from mrifih) 



•action : LOS 

nap : L08 
•vert : LOS 

•spsyntarfSPSIZB : LOS 
•Jot__pvars : SWT 
•data_siz : SWT 
•pdataTTOTSPVAR] : spver 
•data_rsaffl : L08 / 





•p_ptr : UNT 
•p-type : SWT 
Op size ; SWT 



«Stnjct» 
spvar 

(f row rootnuh) 



•p_ptr : UNT 
•p_type : SWT 
•p—size : UNT 



«Struct» 
COL-DESC l£ 
(from nrintK) 



•quatQUALSGE) : L08 
•tableTT ABLESCZB : LOS 
•vereionCVERSIONSiZE) : LOS 
OcoLnaneCCOLUMNSCH : L08 
•d_type£DATATYPESEE] : \M 
•eoLsizeCFHJDSfZE] < LOS 
•dec_stze£DEOMALSIZ0 : LOS 
•ni!_a!wd : LOS 
•prtme_J<ey : L08 
•prime_typ : L08 
•prime_pos : SWT 
•odbc_type : SWT 
•ridcol : SWT 
•ridcob : SWT 
•ridcoir : SWT 
•dicolq : SWT 
•dJwrr : SWT 
•dec_sz_j> : SWT 
•caLtype : SWT 
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